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Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres à 
votre microordinateur : son, couleur, graphisme haute résolution, 
caractères graphiques définis par l'utilisateur, etc. Pour cette raison, 
ces programmes ne fonctionnent que sur le TO 7 et sont difficilement 
adaptables à des matériels différents. 

Au-delà du jeu lui-même, l'étude de ces programmes vous ensei- 
gnera de nombreuses techniques de programmation qui vous seront 
très utiles pour développer vos propres programmes. 
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NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Ils 
doivent être enregistrés sur cassette (ou sur disquette) pour éviter 
d’avoir à les retaper à chaque utilisation. Utilisez pour cela l'instruction 


SAVE ‘ < nom > ” 


en remplaçant < nom > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BLITZ, tapez 


SAVE “BLITZ” 


et pressez la touche RETURN après avoir appuyé sur les touches PLAY 
et RECORD du magnétophone. Pour recharger un programme, rem- 
bobinez la cassette jusqu'au début du programme (certains magnéto- 
phones possèdent un compteur, très utile si vous avez pris soin de noter 
le nombre indiqué avant l'enregistrement) et tapez LOAD ” < nom >”. 
Si vous voulez, par exemple, recharger le programme BLITZ, tapez 


LOAD “BLITZ”" 
et pressez la touche RETURN. 


Afin de réduire au maximum les risques d'erreurs, les listings des 
programmes ont été reproduits par photographie. Si vos programmes 
ne fonctionnent pas, vérifiez-les attentivement en considérant plus par- 
ticulièrement les points suivants : 


— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre 
la lette O et le chiffre O ou la lettre | et le chiffre 1). 


Tous les jeux présentés fonctionnent en BASIC cassette sauf 
PARACHUTE et ATTERRISSAGE qui nécessitent Te BASIC disque. 


nat 


Grâce à votre ordinateur, vous pouvez jouer au squash assis dans 
un fauteuil. La raquette se déplace à l’aide du joystick ou des touches 
<Q>, <S> et barre d'espacement. Vous disposez de dix balles 
que vous devez garder en jeu le plus longtemps possible. Chaque balle 
renvoyée rapporte un point. 


10 REM KHHHIIHHEIX 

20 REM * SOUASH * 

SO REM KHKRKRKHIIKIX 

40 CLEAR ,,2 

50 GOSUR 6460 

60 GOTO 180 

70 D=2#((STICK(O)=7)-(STICK(O0)=3)) 
80 IF D<>0 THEN DO=D 

90 IF STICK(O)=0 THEN DO=0 
100 RX=RX+D0 

110 RETURN 

120 D+=INKEY# 

130 D=2x*((D#="G")-(D$#="S")) 
140 IF D<>O THEN DO=D 

150 IF D£#=N# THEN DO=0 

160 RX=RX+D0O 

170 RETURN 

180 LOCATE EX,EY 

190 COLOR 3,6 
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SQUASH 


PRINT N#: 
BX=BX+DX 

EY=BY+DY 

LOCATE BX,BY 

PRINT B#: 

IF BY=22 AND ABS(BX-RX-3)>1 THEN 360 
IF BY=22 THEN S=S+1:BEEP:DY=-DY 
IF RBY=1 THEN BREEF:DY=-DY 
IF BX=2 OR BX=37 THEN BEEP:DX=-DX 
ON JS GOSUR 70,120 

IF RX£O THEN RX=0 

IF RX>33 THEN RX=33 
LOCATE RX,RY 

COLOR 2 

PRINT R#: 

GOTO 180 

NB=NE+1 

IF NE=11 THEN 480 

LOCATE BX,BY 

PRINT N#: 

FOR I=i TO 3 

REEF 

FOR J=1 TO 100 

NEXT J 

NEXT I 

DO=0 

GOSUR 940 

GOTO 180 

LOCATE 13,5 

COLOR 0 

FRINT "SCORE :":5S: 

IF S>R1 THEN R1=S 

LOCATE 13,10 

PRINT "RECORD :":R1;: 
LOCATE 13,15 

FRINT "UNE AUTRE 7"; 
NE=0 

G=0 

D$=INÉEY# 

IF D#{>"" THEN 580 
D$F=INÉEYS 

IF D$="" THEN 600 

IF D$<>"N" THEN 50 


SQUASH 
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SCREEN 4,6,6 
CLS 

END 

CLS 

SCREEN 1,6,6 
ATTRE 1,1 
DEFINT A-Z 
DEFGR# (0)=255,255,255 
DEFGR#(1)=24,176,1276, 
NF=CHRE (32) 

LOCATE 1,10,0 

PRINT "JOYSTICK (O0 ou N) 7": 
D$=INKEYS# 

IF D$="" THEN 750 

IF D$="0" THEN JS=1 ELSE JS=2 


COLOR 6,1 

FOR BX=i TO 38 

LOCATE BX,0 

PRINT N#: 

NEXT EX 

FOR BY=1i TO 2? 

LOCATE 1i,EY 

PRINT N#: 

LOCATE 38,EY 

PRINT N#: 

NEXT EY 
RE=NE+NE+GRE CO) +GRS 10) +GR$ (CO) +NF+NE 
E$=GRS# (1) 

RX=16 

RY=2: 

BY=2? 

EX=INT (RND#24) +7 
DY=-1 

DX= (INT (RND+#2) -0.5) #2 
RETURN 


= 


Votre mission est de détruire la ville que vous survolez afin de pou- 
voir atterrir. À chaque passage, votre avion vole un peu plus bas. Vous 
ne pouvez larguer une bombe (en appuyant sur une touche quelcon- 
que) que lorsque la bombe précédente a atteint son objectif ou le sol. 
Lorsque votre avion a atterri (ou lorsqu'il s'est écrasé contre un immeu- 
ble), le score est affiché ainsi que le record du jour. Si ce jeu vous paraît 
trop difficile, vous pouvez changer les limites de la ville (10 et 30, ligne 
860). 


10 REM KHKkKKEKEREX 

20 REM * BLITZ + 

50 KREM #HFKRHKEKEX 

40 CLEAR ,,4 

SO GOSUE 640 

60 GOSUE 770 

70 FOR HY=0 TO 2x 

80 FOR HX=0 TO 39 

90 LOCATE HX,HY 

100 Z=-7 

110 W=7+0.5 

120 COLOR 2,0 

130 FRINT A (CW): 

140 COLOR i,0 

150 IF HX>36 THEN 170 

160 IF SCREEN CHX+3,HY)<>CN THEN 270 

170 IF INFEY#£>"" AND EBY=0 AND HX<>39 TH 
EN EX=HX+1:EY=HY+1 

180 IF EY<>0 THEN GOSUR 550 ELSE GOSUB & 
10 
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BLITZ 


NEXT HX 
LOCATE 38,HY 
FRINT NN: 
NEXT HY 

FOR 1=1 TO 500 
NEXT I 
G=S+40#HY+HX 
GOTO 60 
G=S+40#HY+HX 
LOCATE EX,B1 
PRINT N#: 

FOR I=HY TO 22 
LOCATE HX+1,1 
PRINT NN: 


530 LOCATE HX+1,1+1 

340 PRINT RIGHT#(A#(1),2): 
250 FOR J=1i TO 100 

560 NEXT J 

370 NEXT I 

380 IF SR THEN K=S 

390 LOCATE 35,0 

400 COLOR 2,0 

410 PRINT "SCORE :"35, 

420 FRINT "RECORD :'":hR: 
450 FOR I=i TO 100 

440 NEXT I 

450 RS=INKEYS 

460 IF KR#<5"" THEN 450 
470 LOCATE 7,135 

490 PRINT "UNE AUTRE 73 
490 RF=INKEYS 

JO0 IF KR$&="" THEN 490 

410 IF R&SS'"N" THEN 5S=0:G6G0T0 40 
s20 COLOR 4,6 

J30 CLS 

40 END 

JoQ IF EY:273 THEN BY=0 
60 LOCATE EX,B1 

7/0 PRINT N#: 

J90 Ri=EY 

70 IF ERY£:0 THEN LOCATE BX,BY:FRINT Bt: 
EY=RY+1 

400 RETURN 


BLITZ 


610 FOR I=i TO 10 

620 NEXT I 

830 RETURN 

640 DEFINT A-V 

850 DIM A#(1) 

bbO DEFGR#$(0)=193,224,225,255,255,2955, 64 
0 

3 

870 DEFGR#S(1)=248,144,249,253,295,255,74 
1,96 

680 DEFGR#&(2)=248,144,248,252,254,252,74 
0,786 

690 DEFGR#£(2)=40,16,56,124,124,124,56,16 
700 AF(O)=CHRS (22) +6R$ (0) +GRE (1) 

710 A$C1L)=CHRE CE2) +GRE (0) +GRE (2) 

720 B#=GR£ (2) 

730 CN=2? 

740 N#=CHR# (52) 

7506 NNÉ=NE+NE 

769 RETURN 

776 HX=0 

780 HY=0 

7906 EX=0 

OC EY=0 

910 EB1=EY 

820 Z-=0.5 

850 COLOR 3,0 

840 CLS 

850 FRINT CHR# (14): 

260 FOR I1=10 TO 30 

870 C=INT (RND*270) +107 

880 FOR J=?23 TO INT(RND*S)+14 STEPF-1 

850 LOCATE I,J,0 

GOQ PRINT CHR (CO): 

G10G NEXT J 

9270 NEXT I 

930 PRINT CHR#(1S): 

940 RETURN 
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Les rôles sont maintenant inversés. Vous manœuvrez la D.C.A. et 
devez essayer d’abattre les avions qui passent au-dessus de vous. Pour 
tirer, utilisez n'importe quelle touche. Vous disposez au départ de quinze 
missiles. Si vous abattez dix avions, vous obtenez un bonus de dix 
points et dix missiles supplémentaires. 


10 REM +#kk#KEKEEEX 

20 KEM # D.C.fû. + 

S0 REM KHkKkELRIEKKEX 

40 CLEAR ,,9 

JO GOSURB 650 

60 ÀAF=RIGATH (AE, 1) +LEFTF(IAE,359) 
70 HF=RIGHTE(BE,59) +LEFTH(EHF, 1) 
90 LOCATE 0,0 

90 COLOR 5,4 

100 FRINT Â#F: 


120 PRINT Bf: 
120 R$=INKEYS 

140 IF R#é>"" AND MY=274 THEN MY=23: M$=6R 
$ (4) : NM=NM-—1 

150 COLOR 1,4 

160 IF MY<>24 THEN MY=MY-2: LOCATE MX,MY: 
PRINT M#::LOCATE MX,MY+2:FRINT 0%: 

170 IF MY<>3 THEN 270 

180 IF SCREEN(MX,2)=27 THEN 270 

190 LOCATE MX,7 

200 PRINT Ef: 


18 D.C.A. 


210 LOCATE MX,MY 

220 PRINT 0: 

2350 HBEEF 

240 S=S+1 

250 MIDF(B#f,18)=01# 

260 GOTO 3560 

270 IF MY<51 THEN 2:90 

280 IF SCREEN(MX,0)=52 THEN 390 
290 LOCATE MX,0 

500 PRINT Ef: 

310 S=S+i 

220 LOCATE MX,MY 

330 PRINT Of: 

540 BEEP 

350 MID#H(AF,18)=01# 

360 IF Sri AND S@10-S/10 THEN GOSUE 580 
370 MY=2 

380 M$-=-GRE (6) 

3:90 LOCÂATE 9,24 

400 COLOR 2,4 

410 PRINT "5 2:":S5"M 2": NM: 
420 IF NM£S1 AND MHY=24 THEN 450 
#SO IF MY<=1 THEN :LOCATE MX,1:PFRINT 0O#: 
sMV=24: MS=GR# (6) 

440 GOTO 60 

450 IF SÈR THEN R=S 

460 LOCATE 2,10 

470 PRINT "SCORE :":5S, "RECORD :":R: 
480 LOCATE 10,14 

490 FRINT "UNE AUTRE 7" 

JO0O RE=INEÉEYS 

J10 IF R#<:"" THEN 500 

20 RS=INKÉEYS 

9350 IF R&="" THEN 52 

40 IF REES"N" THEN 50 

30 SCREEN 4,6 

60 CLS 

J/0 END 

J00Q ÂS=01$ 

470 R$f=EH1# 

600 NM=NNM+10 

610 FOR I=i TO 3500 

620 NEXT I 


D.C.A. 19 


G=5+10 
RETURN 

DEFINT A-Z 

SCREEN 3,4,0 

CLS 
DEFGR#(0)=195,724,224,255,295,295S,64 


DEFGR#(1)=248,144,249,753,795,2S3,74 


DEFGR#E(2)=51,9,159,191,255,191,145,6 
DEFGR#(3)=131,7, 15 16,255,255,259,2,0 
DEFGR#(4)=16,56,56,50,06,26,16,58 
DEFGRS(5)=0,0,0,0,0,7,737 

DEFGRE (6)=56,56,506,254,254,250s200s2 


DEFGR#(7)=0,0,0,0,0,197,192,192 
DEFGR$(8)-146,84,56,254,56,84,146,0 
SG=0 

AE 2 CES E 8 HÉ= CES 1 

FOR I=i TOS 

AH=AF+GRE (0) +GRE (1) +" ! 
EF=B$+GRS (2) +GR$(3)+" " 

NEXT I 

Ait=A$S:Bit-RH:E+-6GRF(E) 

JE=GRS (SD) +GRE (6) +GR$ (7) 

MX=19: MY=74: ME=GRE (6) : NM=15 
OH=CHRE (22) : O1+F=-0++0++0#+0$ 
COLOR 2,4:LOCATE MX-1,MY,0 

PRINT JÉ: 

COLOR 3,4:L0CÂATE 0,0 

PRINT A; 

LOCATE 0,2 

PRINT B#: 

RETURN 


Deux joueurs s'affrontent pour se partager l'espace vital. Chacun 
doit s'efforcer, tout en se déplaçant, de ne jamais recouper sa trace 
ou celle de son adversaire, et de ne pas sortir du rectangle dessiné sur 
l'écran. Utilisez les joysticks ou les touches suivantes : 


Joueur de droite : <P>, <L>, <M> et < @ > 
Joueur de gauche : <Z>, <Q>,<S> et <W2> 


190 REM HkRHHKHEEX 

20 REM + TRACE * 

3 RKEM KKRHRKÉHKHEXEX 

40 CLEAR ,,i 

50 GOSUR 750 

&0 ONJK GOTO 130 

70 D$=INFEY# 

00 HB=(D#="L")—(D#="M") 

90 VE=(D$="F")-(D#+-"@") 

100 HA=(D#="0")-(D+="S") 

110 VA=(D#="Z")-(D#="W") 

120 GOTO 170 

130 HA=(STICH(O)=7)—(STICK(O)=3) 
140 VA= (STICK (0)=1)-(STICKH(0)=5) 
150 HE= (STICK (1)=7)-(STICK (1) =3) 
180 VB= (STICK (1)=1)-(STICK(1)=5) 
170 IF HA£>0 THEN Hi=HA:Vi1=0 
180 IF VA“>0 THEN Vi=VA:H1=0 
190 IF HB<>O THEN H7=HB:V2= 

200 IF VB<:0 THEN V?=VB:H2-0 
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TRACE 


210 
220 
230 
240 
250 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 
760 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
SE 

540 
550 
560 
570 
580 
590 
400 
610 
620 
630 


X1=X1+H1 
Yi=Yi+Vi 

IF SCREEN(X1,Y1)=127 THEN 350 
LOCATE X1,Y1 

COLOR = 

PRINT N#: 

X2=X2+H7 

Y2=Y2+V? 

IF SCREEN(X2,Y2)=127 THEN 410 
LOCATE X2,Y2 

COLOR 5 

PRINT N#: 


F2=F2+1 
GOSUB 690 

IF F2=10 THEN 470 

IF INKEY#<>"" THEN 380 

GOSUR 870 

GOTO 60 

Fi=F1+1 

GOSUE 690 

IF Fi=10 THEN 540 

IF INKEY#<>"" THEN 440 

GOSUE 870 

GOTO 460 

CLS 

COLOR 1,7 

LOCATE 9,5 

PRINT "LE JOUEUR DROIT GAGNE";: 
LOCATE 15,10 

PRINT F2: "A";Fi;: 

GOTO 600 


LOCATE 9,5 
PRINT "LE JOUEUR GAUCHE GAGNE"; 
LOCATE 15,10 

FRINT Fi:"A":F2: 

LOCATE 14,15 

PRINT "UNE AUTRE 7"; 

IF INKEY#{>"" THEN 620 
DF=INFEYS 


TRACE 23 


640 IF D+="" THEN 630 
850 IF D$£>"N" THEN RUN 
680 CLS 

670 SCREEN 4,6,6 


710 FOR J=1i TO 100 
720 NEXT J 

30 NEXT I 

740 RETURN 

750 CLS 

760 SCREEN 2,0,0 

770 DEFINT A-Z 

780 ATTRE 1,1 

790 LOCATE 6,10,0 

800 PRINT "JOYSTICKS 7"; 

910 R$=INFEYS 

020 IF R$="" THEN 810 

9:00 JK=-(R$="0") 

840 ATTRE 0,0 

850 DEFGR$(0)=255,255,255,295,295,255,25S 
5,255 

860 N$=GR# (0) 

870 CLS 

880 COLOR ? 

890 FOR Xi=0 TO =9 

900 LOCATE X1,0:PRINT Nf: 

910 LOCATE X1,23:PRINT Nf: 

920 NEXT X1 

920 FOR Yi=1i TO 2? 

940 LOCATE O0,Y1:PRINT NE: 

950 LOCATE 29,Y1:PRINT N#: 

G80 NEXT Yi 

970 LOCATE 2,24: COLOR = 

980 FRINT "JOUEUR GAUCHE :";Fis 
990 LOCATE 22,74:COL0R © 

1000 FRINT "JOUEUR DROIT :";F23; 
1010 X1=8:Y1=11: X7=237: Y2=11:Mi=1: VI=O 
1020 H?=-1:V2=0:G1=0:S72=0: RETURN 


Partez aux sports d'hiver sans risque de vous casser une jambe ! 
Lancez-vous du haut de la piste et essayez de passer le plus grand nom- 
bre possible de portes sans heurter les piquets. Frappez n'importe quelle 
touche pour changer de direction. 


10 KRKEM +444 RRLHLHXX 
20 REM * SLALOM + 
30 KREM RH RKIERHEE 
40 CLEAR ,,4 

SO GOSUE 460 

60 FOR K=i TO 300 
70 X=S5SX+8 


60 Y=SY#B 

90 IF Ki=1ié6 AND (KE-35)/10=(E-5)610 THEN G 
OSUE 360 

100 IF KE£264 AND K/10=E@610 THEN GOSUER 36 
O 

110 IF INFEY#<2:"" THEN DX=-DX 

120 S1=SX 


130 SX=SX+DX 
140 IF SX£2 THEN SX=27:DX=-DX 
150 IF SX>:37 THEN SX=37:DX=-DX 
140 LOCATE 51,SY 

170 FRINT B#: 

189 LOCATE 0,74 

190 FRINT 
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200 
2160 
220 
250 
245 
290 
260 
270 
20 
2970 
F00 
310 
RUES, 


230 


546 
TES 
RENE) 


RTE 


— — % 


SLALOM 


LOCATE SX,SY 
PRINT SF(DX/2+0.5); 

G1=5X 

NEXT EF 

LOCATE 5,5 

PRINT "PORTE(S) RATEE(S) :"3T 

LOCATE 5,8 

PRINT "UNE AUTRE DESCENTE 7" 
DF=INKEYS 

IF D#<>"" THEN 280 

DF=INKEYE 

IF Df="" THEN 300 

IF DF<>"N" THEN RUN 

CLS 

GCREEN 4,6,6 

END 

IF POINT(X-4,Y)<>1 OR FOINT(X+20,Y)< 


1 THEN IF POINT(X-12,Y)<>1 OR POINT(X+i1 
Z2,Y)2%1 THEN T=T+1:BEEF 


570 


380 


RETURN 

PF=F+ CINTIRNDEZ) —-1) +0 
IF F<2 THEN F=10 

IF F:i4 THEN F=2é 
LOCATE P,2S 


5 
PRINT P# 


> COLOR 1,7 
F, 


: COLOR 4, 
: RETURN 
à DIM S#(1) 


DEFINT &-Z 
DEFER#(O)=16,2:2,241,18,79,8, 
DEFGR$S(1)=8,4,143,77,56,16,8, 
DEFGRF(2)=8,12,14,17,6,8,68,8 
DEFGR#(3)=0,74,S6,74,8,8,8,8 
S+ O0) =GRE (0) 
SFi1)=CR#E(1! 
BE=CHRE {ET} 
FE=GRE 5) +B#E+ERE+GRE (2) 
SCREEN 4,7,7 

A=— 1 
SY=5S 
SxX=19 
Si=Sx 


18,32 
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SLALOM 


27 


610 
EC 
30 
40 
ER se 
850 
360 

70 
880 


F=ie 
CLS 
LOCATE 5,10,0 


FRINT "TAPEZ UNE TOUCHE FOUR COMMENC 


N=RND 
IF INFEY#="" 
CLS 

RETURN 


THEN 850 
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Voici une curieuse façon d'utiliser un ordinateur : vous devez vous 
efforcer de ramasser le plus vite possible les miettes qui jonchent la 
nappe. Vous disposez de 30 secondes pour un nettoyage complet. Les 
miettes sont représentées par des points noirs. Le joystick ou les tou- 
ches <Z>, <Q>, <S> et <W2> vous permettent de contrô- 
ler votre ramasse-miettes. 


REM KHKHKKÉEREHRKERIKHHNREREÉE 
REM * RAMASSE-MIETTES * 
RKEM KR 
GOTO 90 

K=STICK (0) 
Di=(KH=7)—(K=3) 
D?=(K=1)—(K=5) 


GOTO 170 

GOSUB 327 

LOCATE 0,74 

PRINT "TEMPS :"3INT(Z): "SCORE : "3:59: 
IF Z£éi THEN 820 

ON JS GOTO 50 

DHF=INFEY+ 
Di=(D$="Q")-(D+="S") 
2=(D$="Z")—(D$="W") 

IF Di<:O THEN DX=Di:DY=0 
IF D2<:0 THEN DY=D2:DX=0 
XP=PX+DX 

YP=PY+DY 


30 RAMASSE-MIETTES 


210 IF SCREEN(XF,YP)=127 THEN XF=PX:YP=P 
Yÿ 

220 IF SCREEN(XF,YP)=46 THEN S=S+1:BEEP: 
X=X+1 

230 LOCATE FX,FY 

240 PRINT N#; 

250 LOCATE XP,YP 

280 PRINT JE: 

270 FX=XP 

280 PY=YP 

290 Z=7-0.7 

200 IF X=NM THEN 970 
310 GOTO 100 

320 CLS 

330 SCREEN 0,2,6 

340 DEFINT A-Y 

250 ATTRE 1,1 

360 LOCATE 10,10,0 

370 PRINT "JOYSTICE 7": 
280 ATTRE 0,0 

390 IF INKEY$é>"" THEN 390 
400 D+=INÉEY+# 

410 I=RND 

420 IF D$="" THEN 400 
430 IF D$="0" THEN JS=1 ELSE JS=0 
440 CLS 

450 J+F=CHR# (127) 

4680 M+t="." 

470 N$=CHRS$ (32) 

480 S=0 

490 NM=10 

500 X=0 

510 COLOR 4 

520 FOR PX=0 TO 9 

530 LOCATE PX,0 

540 PRINT J#: 

SS0 LOCATE PFX,23 

560 PRINT Jf: 

570 NEXT FX 

580 FOR PY=1 TO 27 

590 LOCATE 0,FY 

600 PRINT JE: 

610 LOCATE 39,FY 


RAMASSE-MIETTES 


FRINT J#: 
NEXT FY 

COLOR 9 

FOR I=1 TO NM 

PX=INT (RND#389) +1 

FY=INT (RND#22) +1 

IF SCREEN(PX,FY)<>S7 THEN 660 
LOCATE FX,FY 

PRINT M: 

NEXT I 

COLOR 1 

FX=INT (RND#28) +1 

PY=INT (RND#22) +1 

IF SCREEN(FX,PY)<2>22 THEN 720 
LOCATE FX,PY 

PRINT J#: 


RETURN 

FOR I=i TO 500 

NEXT I 

IF INKEY+<:"" THEN 840 
COLOR 1 

IF SR THEN R=S 

LOCATE 13,10 

FRINT "RECORD :":R:; 
LOCATE 13,16 

PRINT "UNE AUTRE 7"; 


D$=INKEY# 
IF D#$="" THEN 910 
IF D$<>"N" THEN 90 
CLS 

SCREEN 4,6,6 

END 

NM=NM+1 

LOCATE XP,YP 

PRINT NF: 


1000 GOSUR 300 
1010 GOTO 100 
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Essayez de suivre la route avec votre tank tout en évitant les mines 
qui s’y trouvent placées au hasard par l'ordinateur. Pour vous diriger, 
utilisez le joystick ou les touches <,> et <.2>. Si le passage est 
bloqué, vous pouvez faire sauter une ou plusieurs mines en tirant un 
de vos dix obus (frappez la barre d’espacement ou appuyez sur le bou- 
ton du joystick). 


10 KEM +#KkRHRRHKRKHE 

20 REM * TANK * 

50 KREM +#KKKKHX 

40 CLEAR ,,2 

SO GOSUB 740 

60 GOTO 120 

70 TX=TX+(STICK(O)=7)-(STICK(O)=3) 
80 RETURN 

90 XF=INFEYS 

100 TX=TX+(X#H=-G#) —-(X$=D#) 

110 RETURN 

120 ON JS GOSUR 70,90 

130 LOCATE X,Y 

140 PRINT N#: 

150 LOCATE 0,274 

160 COLOR © 

170 PRINT R# 

180 IF POINT(TX*9+4,TY*x8+4)<>-4 THEN 430 
190 LOCATE TX,TY 

200 COLOR 1 


TANK 


PRINT T#: 


IF XS=N$S OR (STRIG(O)=-1 AND JS=1) T 


GOSUB 3460 
X=TX 

Y=TY 

COLOR O 

PO=INT (RND#7) +17 
LOCATE P0,2Z 
PRINT M: 

FO=INT (RND#7) +17 
LOCATE F0,23 
FRINT MY: 

G=S+1 

FOR I=i TO DL-S 
NEXT I 

GOTO 120 

IF OB=-0 THEN 420 
OE-0B-1 

FOR I=i TO S 
LOCATE TX,TY+I 
PRINT N: 

NEXT I 

RETURN 

COLOR 1 

FOR I=1 TO 10 
LOCATE TX,TY 
PRINT M: 

FOR J=i TO 100 
NEXT J 

LOCATE TX,TY 
PRINT T#: 

FOR J=1i TO 100 


} NEXT J 


NEXT I 

IF S>R THEN R=5 
CLS 

COLOR © 

ATTRE 1i,i 

LOCATE 10,10 

FRINT "SCORE :":6: 
LOCATE 9,14 

PRINT "RECORD :":R: 


) LOCATE 9,18 


TANK 35 


PRINT "UNE AUTRE 7": 
ATTRE 0,0 

IF INKEY#<>"" THEN 4650 
XH=INKEYS# 

IF X+="" THEN 660 

IF X$£>"N" THEN 720 
CLS 

SCREEN 4,6,6 

END 

GOSUB 1010 

GOTO 120 


DEFERS (0)=198,254,254,254, 254,214,21 


DEFGR#(1)=-0,84,56,174,56,84,0,0 
TÉ=GRS (0) 2 MÉ=GRS (1) : NS=CHRS# (32) 
NH=CHRE (32) 

R&= CEREL 

FOR I1=1 TO 15 

RF=REENS 

NEXT I 

RH=RE+MEEME 

FOR I=i TO 7 


RE=RE+NEF 

NEXT I 

RE=RE+ME+ME 
D$=".":6#=",":LOCATE 10,10,0 
ATTRE 1,1=:PRINT "JCGYSTICK 7": 


X$=INFEYE 
IF X$="" THEN 920 

IF X$="0" THEN JS=1 ELSE JS=2 
CLS 

LOCATE 5,10 


PRINT "TAPEZ UNE TOUCHE"; 
FO=RND 

IF INÉEY$="" THEN 980 

ATTRE ©C,0 

CLS: TX=19: TY=10: X=TX: Y=TY: S=0 
DL=?200:0EB=10:COLOR © 

FOR I=i TO Z4:FRINT R#:NEXT I 


RETURN 


ALPHABET 


Voici un jeu d'adresse assez difficile. Vous tenterez de marquer le 
plus grand nombre de points possible en effacant les lettres affichées 
par l'ordinateur. Utilisez le joystick ou les touches <Z> (haut), 
<W> (bas), <Q> (gauche) et <S > (droite). 

Attention : vous devez effacer les lettres dans l'ordre alphabétique 
en évitant les obstacles placés au hasard sur l'écran, et ceci en un temps 
limité. (Le temps qui vous reste est affiché au bas de l'écran.) Lorsque 
toutes les lettres sont effacées, le jeu reprend avec une lettre 
supplémentaire. 


10 REM #HHRRHIHRENIIEX 

20 REM # ALFHABET * 

30 REM #HKKHHRKREHEREK 

40 GOSUB 920 

50 S=0 

80 X=0 

70 N$=CHRE (32) 

80 F$=CHR# (127) 

90 GOSUE 440 

100 FOR I=1 TO X 

110 ON JK GOTO 180 

120 D$=INKEY# 

170 DH=(D#="Q")-(D#="S") 

140 DV=(D#="Z")-(D#="W") 

150 IF DH<>O THEN DX=DH: DY=0 
160 IF DV<>0 THEN DY=DV:DX=0 
170 GOTO 210 

180 K=STICE (0) 
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ALPHABET 


DX=(K=7) —(K=2) 
DY=(KH=1)—(H=S 

Z=Z-0. 1 

LOCATE 0,74 

COLOR O 

PRINT "TEMPS ="; INT(Z): 
IF Zé1i THEN 460 
FX=FX+DX 

FY=PY+DY 
C=SCREEN (FX, FY) 

IF C=1+64 THEN S=S+1:BEEF:GO0TO 38 
IF C£>32 THEN FX=XP:PY=YP 
COLOR 1 

LOCATE XP,YF 

PRINT N€: 

LOCATE PX,PY 

PRINT F#: 

XP=PX: YE=PY 

GOTO 110 

LOCATE XF,YF 

PRINT Nf: 

LOCATE FX,PY 

PRINT P#: 

XP=PX: YP=PY 

NEXT I 

GOSUEB 640 

GOTO 100 

D$F=INÉEYS 

IF R£S THEN R=5 

COLOR O 

LOCATE 10,10 

FRINT "TEMPS ECOULE"; 
LOCATE 10,13 

IF INÉEY#{>"" THEN 520 
COLOR 0 

FRINT "SCCRE :"3G: 
LOCATE 10,16 

FRINT "RECORD :"3R: 
LOCATE 10,19 

PRINT "UNE AUTRE 7"; 
DF=INFEY# 

IF D+="" THEN 590 

IF DH<>"N" THEN 50 


© 


ALPHABET 


CiS: SCREEN 4,6,6 


FOR FX=0 TO :9 
LOCATE FX,0s:PFRINT F#;: 


) LOCATE PFX,23:PFRINT F#; 


NEXT FX 
FOR FY=1 TO 2? 

LOCATE O,FY:PRINT P#: 

LOCATE 39,PY:PRINT P#: 

NEXT FY 

FOR Z=i TO 120 

GOSUE 890 

LOCATE PX,FY:PRINT P#:; 

NEXT Z 

FOR Z=i TO X 

GOSUE 890 

COLOR 3,5:LOCATE FX,PY 

PRINT CHR#(Z+64); 

NEXT Z 

COLOR 1,7? 

GOSUB 290 

LOCATE PX,PY:PRINT P#: 

XP=PX: YP=PY:Z=30: DX=0: DY=0 
RETURN 

FX=INT (RND#28) +1: PY=INT (RND#22) +1 
IF SCREEN(FX,FY)<>32 THEN 890 
RETURN 

SCREEN 4,2,4:DEFINT A-Y:ATTRE 1,1 
CLS: LOCATE 10,10,0 

PRINT "JOYSTICK ?";:ATTRE 0,0 
D$=INKEY#: C=RND 


IF D+F="" THEN 9350 
IF D$="0" THEN JK=i 
RE TURN 
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ATTERRISSAGE 


Après un long voyage en apesanteur, poser une navette spatiale 
en douceur n'est pas chose aisée ; mais grâce à votre ordinateur, vous 
allez être en mesure de vous entraîner sans danger. Vous devez poser 
votre navette sur l'aire prévue à cet effet. Vous pouvez vous diriger 
vers la droite et vers la gauche à l’aide des touches <,> et <.2> 
ou freiner votre descente avec la barre d’espacement. (Vous pouvez 
également utiliser le joystick.) La quantité de carburant disponible est 
indiquée par la longueur du trait horizontal, en haut de l'écran. 


lé FREM HR HRSLILELLILRR EX 

20 REM + ATTERRISSAGE * 

S0Q KREM HRRIHRELRRRESLLELEX 

40 DEFINT A-Z 

SO DIM N(15,270) 

69 DIM R(15,20) 

70 DIM C{15,10) 

90 FU=100 

70 GOTO 620 

190 GOSUR 750 

110 DV=DV+i 

170 IF FU£1 THEN D$="":G0T0 170 
130 D+=INKEY# 

140 Q=STICE (0) 

150 DV=DV+3+% (6-5) 

160 DH=DH+(Q=7) -(D=7) 

170 DV=DV+3#(D+#=" ") 

180 DH=DH+(D#=".")—(D#=",") 
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ATTERRISSAGE 


IF D<2"" OK 


CIS 50 THEN FU=FLI- 1: FF=1 


DRAW "COL"+STRE (FF) 


FF=0 
IF MH£O OR NH 
IF MV<OQ THEN 
PUT (MH,MV)—<C 
NH=NH+DH 
NU=NV+DY 


>319 THEN 250 
25 


NH,NV) ,R 


IF NV:187 THEN 340 


MV=NV-20 
MH=NH-IS 


IF MAO OR NH:519 THEN 110 


IF MV<O THEN 
PUT (MH,MV)—i 
GOTO 110 

IF DV>5 THEN 


IF ABS (NH-R) > 


IF RÀES(DH):>1 


110 
NH,NV) ,N 


420 
4 THEN 420 
THEN 4259 


FUT (MH,167)—(NH,187),N 
FOR 1-0 TO 1000 


NEXT I 
S=S+10 


: GOTO 100 


IF MHSO OR NH5304 THEN 460 
IF MVEO OR NV:>191 THEN 450 


FUT (CMH,MV)—< 


NH,NV) ,R 


PUT CMH,191)-(NH,191),0C 


FOR I=i TO 10 
NEXT I 

CLS 

SCREEN 4,6,6 
LOCATE 5,10 
FRINT "VOTRE 
LOCATE 10,13 
FRINT "SCORE 
LOCATE 10,16 


NAVETTE S'EST ECRASEE" 


s":5S3 


FRINT "UNE AUTRE 7": 


IF INFEY#<>"" 
D+=INKEY# 


THEN 560 


IF D$="" THEN 570 


IF D$<>"N" TH 
CLS 
END 


EN RUN 


ATTERRISSAGE 


420 CLS 
620 SCREEN 3,0,7 

640 LOCATE 0,0,0 

850 FOR I=1 TO 15 

660 FOR J=0 TO 10 

670 C(I,J)=RND*1000 

680 NEXT J 

690 NEXT I 

700 DRAW "C3EMSO, SOR2L1USESHAUGEAR7F 4D66G 
4F3D3L1R2L1USHELSD?PR1DIUILZDIULRIUTLS" 
710 FAINT (55,40),3 

720 GET (50,30)-(65,50) ,N 

730 GET (0,0)-(15,20),R 

740 GOTO 100 

750 CLS 

760 A=INT (RND#260) +20 

770 DRAW "CIEM"+STRE (A) +",188R4L23D1R?3D 
iL?2=" 

780 NH=160 

790 NV=20 

800 DH=0 

810 DV=0 

920 MV=0 

30 MH=NH-15 

840 FU=FU+10 

950 DRAW "C1EMO,3R"+STRS (FU) 

860 RETURN 
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CHASSE AU 
CANARD 


Votre microordinateur vous invite à une partie de chasse au canard. 
Les canards volent de droite à gauche en haut de l'écran. Vous vous 
déplacez en utilisant le joystick ou les touches <Q > et <S >. La 
touche < W > vous permet de vous arrêter. Vous pouvez tirer autant 
de cartouches que vous voulez, mais il ne passera que 20 canards, et 
votre but est d’en abattre le plus possible. Pour tirer, frappez la barre 
d'espacement ou pressez le bouton du joystick. Si vous atteignez un 
canard, vous marquerez un point et vous le verrez tomber en battant 
des ailes. 


10 KREM 4#KRHRRHERRERIRER EIRE EX 
20 KREM + CHASSE BU CANBRD + 
SO KREM HERKEKRHÉELRERÉELERERMÉREEX 
40 CLEBR ,,6 
JO GOSUE 410 


60 Z=-2 
70 H=2Z+0.5 
0 CX=Cx-1 


FQ IF CX<0 THEN GOSUE 756 
100 IF NC=0 THEN 900 

110 LOCATE CX,CY 

120 COLOR 2? 
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CHASSE AU CANARD 


PRINT CC (CH): 
JX=JX+Di 

IF JX>:38 THEN JX=58 

IF JX£O THEN JX=0 

LOCATE X,Y 

PRINT N#: 

LOCATE JX,dY 

COLOR 1 

PRINT J#: 

X=JX 

IF TY£>JY THEN TY=TY-2:G0T0 750 
TX=JX 

IF TY£7? THEN 800 

LOCATE TX,TY 

COLOR 1 

PRINT J#: 

IF TY£>JY THEN LOCATE TX,TY+2:FPRINT 


XF=INKEYS 

D=2#((X$5="0")—-CX#="S")) 

IF D£:0 THEN D1=D 

IF X+="W" THEN D1=0 
J'X=JX+2#((STICKH(O)=7)-(STICK(O)=5)) 
IF XF<2N# AND (JS=0 OR STRIG(O)=0) T 
80 

IF TY<>JY THEN 60 

TY=JY-2 


DEFINT A-Y 
DEFGR# (0) =0,0 
DEFGR$ (1) =63, 
DEFGR# (2) =0,0 


DEFGR+# (5) =146 
SCREEN 2,0,0 
LOCATE 10,10,0 
ATTRE 1,1 
PRINT "“JOYSTICK 7"; 
ATTRE 0,0 
XF=INFEYS 


tele) 
60 
4/0 
90 
370 
600 
6810 
6820 
630 
640 
620 
660 
670 
680 
690 
700 
710 
720 
750 
740 
7:30 
7860 
779 
780 
770 
800 
810 
820 

30 
840 
850 
860 
970 
880 
070 
900 
910 
920 
750 
940 
950 
9860 
970 


CHASSE AU CANARD 


IF X$="" THEN 540 

IF X$="0" THEN JS=1 ELSE JS=0 
CLS 

DIM CC#H(1) 

J$=GRS# (4) 

NE=CHRE (352) 

E+F=GRE#(S) 

CCF (O)=GRE (O0) +GRE (1) +GRE (5) +N# 
CCH(1)=GRS(O) +GRE (2) +GRE(S) +NE 
JX=19 

JY=24 

NC=20 

TX=JX 

TY=JY 

2Z=0.5 

CX=56 

CY=0 

X=J X 

Y=JY 

RETURN 

LOCATE 0,0 

PRINT NE+NS+NE: 

CX=56 

NC=NC—-1 

RETURN 

IF TX=CX OR TX=CX+1 THEN 1040 
LOCATE TX,TY+2 

PRINT N#: 

LOCATE TX,TY 

PRINT J#f: 

LOCATE TX,TY 

FRINT N#: 

TX=JX 

TY=JY 

IF NC<>0 THEN 240 

CLS 

ATTRE 1,1 

LOCATE 10,10 

PRINT "SCORE :"353 
LOCATE 9,20 

FRINT "UNE AUTRE 7": 
ATTRE 0,0 
IF INKEY#S5"" THEN 979 
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CHASSE AU CANARD 


980 XF=INKEY# 


990 IF X+="" THEN 980 
1000 IF X#<>"N" THEN RUN 
1010 CLS 

1020 SCREEN 4,6,6 

1030 END 

1040 LOCATE TX,TY 

1050 PRINT Ef:; 

1060 LOCATE TX,TY+2 

1070 PRINT N#: 

1080 BEEF 

1090 FOR I=1 TO 50 

1100 NEXT I 

1110 S=S+1 

1120 DX=CX 

1130 CX=56 

1140 COLOR ? 

1150 FOR I=1 TO 24 

1160 Z=-Z 

1170 H=Z+0.5 

1180 LOCATE DX,I-1 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1:00 
1510 
13520 


PRINT NF+NE4NE: 
LOCATE DX, I 
PRINT CC#(CH); 
REEF 

FOR J=1 TO 10 
NEXT J 

NEXT I 

NC=NC-1 

FOR I=i TO 500 
NEXT I 

CLS 


IF NC=0 THEN 900 


TY=JY 
GOTO 60 


Dans ce jeu, vous êtes un serpent qui se déplace en ondulant sur 
l'écran. Le changement de direction s'effectue en tapant n'importe 
quelie touche. Pour pouvoir vous déplacer, vous devez vous nourrir. 
Heureusement, vous êtes entouré par un grand nombre de champi- 
gnons. Mais attention ! Si les bleus sont excellents, vous devez abso- 
lument éviter les rouges qui, eux, sont vénéneux. Chaque champignon 
bleu vous apporte suffisamment de calories pour avancer de dix lignes. 
Essayez de ne pas mourir de faim sans pour autant finir empoisonné ! 


19 KREM +KkKHRKHHHEIX 

20 REM * SERPENT * 

50 KREM KRHRHEHRHELHE 

40 CLEAR ,,2 

SO GOSUE 540 

60 D+=INKEYS 

70 IF D#$£>"" THEN D=-D 

BO X=X+D 

90 IF X<O THEN X=1 

100 IF X>:39 THEN X=538 

110 IF POINT(X*G+4,Y=x8+4)=1 THEN 2760 
120 IF POINT(X*S+4,Y*8+4)=4 THEN S=G+10: 
H=H+10:BEEP 

130 LOCATE X,Y 

140 COLOR O 


b2 SERPENT 


150 PRINT S#; 
140 LOCATE 0,24,0 

170 FRINT 

180 LOCATE INT (RND#38) +1,24 
190 COLOR 4 

200 PRINT C#; 

210 IF RND>0.5 THEN LOCATE INT (RND#38) +1 
,24: COLOR 1:PRINT C#; 
220 S=S-1 

230 IF S=0 THEN 240 

240 H=H+1 

250 GOTO 60 

260 BEEF 

270 LOCATE 0,24 

280 PRINT 

290 LOCATE X,Y-1 

300 COLOR 5 

310 FRINT S#; 

220 FOR I=1 TO 5 

330 BEEF 

340 FOR J=1 TO 50 

350 NEXT J 

360 NEXT I 

370 IF INKEY#<>"" THEN 370 
380 IF HR THEN R=H 

370 LOCATE 4,20 

400 COLOR O 

410 PRINT "SCORE :°";H; 
420 LOCATE 25,2 

430 PRINT "RECORD :"3R; 
440 LOCATE 15,23 

450 PRINT "UNE AUTRE 7" 
460 D$=INKEY# 

470 IF D$="" THEN 460 
480 IF D#<>"N" THEN 520 
470 SCREEN 4,6,6 

300 CLS 

10 END 

520 GOSUR 610 

330 GOTO 40 

S40 CLS 

350 SCREEN 2,2,2 

560 DEFINT A-Z 


SERPENT b3 


DEFGR#(0)=0,0,102,255,219,176,60,74 
DEFGR#(1)=60,126,126,255,255,24,274,6 


S$=GRE (0) 
CF=GRE (1) 
CLS 
S3=100 
H=0 

D=1 

X=19 
Y=10 
RETURN 


NAN A 


Dans cette version du jeu bien connu, vous utiliserez les touches 
de déplacement du curseur pour répéter la séquence produite de façon 
aléatoire par l'ordinateur. À chaque touche correspondent une cou- 
leur et un son : 


(du plus grave au plus aigu) 
< t > : rouge 

< | > : bleu 

< + > : jaune 

< =: > : violet 


La limite de la longueur de la séquence à répéter est 100. Lorsque 
vous faites une erreur, le jeu s'arrête et votre score, correspondant à 
la longueur de la plus longue séquence que vous avez réussi à repro- 
duire, est affiché ainsi que le record du jour. 


15 PEM #ERHEKREEX 

£2Ù REM + SIMON # 

39 REM £Kk+kk#H REX 

At LIM Ti106) 

Ci X—=1{( 

80 SCREEN 2,2,2 

75 ATTRE 0,6 

90 CLS 

70 GOSUR 750 

100 X=X+1 

110 TIX)=INT CRND#4) +: 
120 FOR I=i F0 *X 

150 ON T{1) GOSUE 2590,660,520,450 
140 NEXT I 


b6 SIMON 


150 FOR I=i TO XX 

160 FOR J=i TD 1000 

170 DF-=INKEYEF 

80 IF D#<5"" THEN 210 
190 NEXT J 
209 G0OTO 280 

210 Z=ASCIDE) —7 

220 IF Z£ÈT(I) THEN 250 
250 ON Z GOSUR 590,660,520,450 
240 NEXT I 

250 FOR I=1 TO 500 
260 NEXT I 

270 GOTO 100 
280 X=X-1 

290 IF X5R THEN R=X 
500 IF INÉEY#<£5"" THEN SOC 
519 COLOR 0 

220 LOCATE 10,11 

370 PRINT "SCORE s"':Xx3: 
240 LOCATE 10,15 

350 PRINT "RECORD :'":k3: 
5360 LOCATE 10,19 

370 PRINT "UNE AUTRE 7": 
260 DF-=INFEYS 


590 IF DF="" THEN 3580 
400 IF DFS5"N" THEN 50 
410 CLS 


420 SCREEN 4,6,4 
450 ATTRE O,0 
440 END 

450 LOCATE 13,11 
460 COLOR 1 

470 PRINT R#: 
480 PLAY "DO" 
490 LOCATE 13,11 
500 PRINT N#: 
S10 RETURN 

520 LOCATE 23,11 
530 COLOR 4 

540 PRINT R#;s 

550 PLAY "MI" 
560 LOCATE 25,11 
570 PRINT NF: 


560 

1000 
1020 
1040 
1050 
1060 
1070 
1080 
1090 
1120 


SIMON 


RETURN 
LOCATE 13,19 
COLOR = 
PRINT R#: 
FLAY "So" 
LOCATE 13,19 
PRINT N#: 
RETURN 
LOCATE 25,19 
COLOR 5 
PRINT R#: 
PLAY "SI" 
LOCATE 25,19 
PRINT N#: 
RETURN 
COLOR 5 
FOR 1=0 TO =9 
LOCATE 1,0,0:PRINT CHR#(127)3 
LOCATE I1,23:PRINT CHR#(127): 
NEXT I 
FOR I=i TO 22 
LOCATE O,I1:PRINT CHR#(127);: 
LOCATE 39,1:PRINT CHR#(127)3 
NEXT I 
FOR I=13 TO 24 
LOCATE 1,2:PRINT CHR#(127) : 
LOCATE 1,5:PRINT CHR#(127) : 
NEXT I 
FOR I=3 TO 4 
LOCATE 13,1:PRINT CHR#(127)3 
LOCATE 24,1:PRINT CHR#(127): 
NEXT I 
ATTRE 1,1:LOCATE 14,4 
COLOR 1:PRINT "SIMON"; 
ATTRE O,0:LOCATE 10,10 


PRINT "TAPEZ UNE TOUCHE. .."; 
I=RND 

IF INKEY#="" THEN 1050 
LOCATE 10,10 

PRINT " " 


3 
ATIRE 1,1=:R#=CHR# (127): N#&=CHRE (252) 


RETURN 
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RAND-PRIX 


Au volant de votre formule 1, essayez de parcourir la plus grande 
distance possible. Votre voiture dispose de deux vitesses que vous pou- 
vez sélectionner à l’aide des touches < 1 > et <22> si vous utilisez 
le clavier. Si vous disposez d’un joystick, maintenez le bouton enfoncé 
pour rester en seconde vitesse. La direction est commandée par les 
touches <,> et <.2> ou par le joystick. En seconde vitesse, votre 
voiture roule deux fois plus vite. Mais gare à l'accident ! 


10 REF #HRRHRRKERRERREHEX 

20 REM + GRAND-FRIX * 

SO KEM #44 RKÉRLLRLÉRLIE 

40 CLEAR ,,2 

SO GOSUE 590 

£0 ON JS GOTO 1270 

70 D+=INKEY# 

80 IF D$="1" THEN T=1 

90 IF D$="2" THEN T=2 

100 VX=VX+{D#=" ")—(D£=",.") 

119 GOTO 150 

170 H=STICK(O) 

130 VX=VX+(H=7)—(H=3) 

140 IF STRIG(O) THEN T=2 ELSE T=1 
150 IF SCREEN(VX,VY+1)£€:127 THEN 330 
160 RX=RX+(RND<O.5)-—(RND<0.5) 

170 IF RX<EN THEN RX=RN 

180 IF RX>RM THEN RX=RM 

190 LOCATE XV,VY 

200 COLOR 0,7 
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GRAND-PRIX 


FRINT N#3 

LOCATE RX,24 

PRINT K# 

LOCATE VX ,VY 

COLOR 1,0 

FRINT VE: 

KH=K+T 

DL=(Z2-T)#50 

FOR I=1 TO EL 

NEXT I 

XV=VX 

GOTO 60 

LOCATE XV,VY 

COLOR © 

PRINT NF 

FOR I=i TO 5 

LOCATE VX,VY+I 
COLOR 1,2 

PRINT À: 

FOR J=i TO 100 

NEXT J 

BEEF 

LOCATE VX,VY+1 
FRINT V#: 

FOR J=1 TO 1090 

NEXT J 

NEXT I 

LOCATE 10,10 

FRINT "EMS PFARCOURUS :'":K3 
IF INKEY#<S5"" THEN 500 
LOCATE 14,16 

PRINT "UNE AUTRE 7": 
DF=INÉEYS 

IF D="" THEN 550 
IF D#S5"N" THEN RUN 
CLS 

SCREEN 4,6,6 


ATTRE 1,1 
LOCATE 10,10,0 


GRAND-PRIX 


PRINT "JOYSTICK 7" 


ATTRE 9,0 
DF=INKEYS 

IF DF="" THEN 6609 
IF D$="0" THEN JS=1i 
CLS 


NE=CHRE (127) 
DEFGR#(0)=219,255,219,74,24,90,126,9 


DEFGR#(1)=146,84,56,254,56,84,146,0 
AF=GRE (1) 
RE=NE+ENE+HNE 
RX=18 

RY=24 

T=1i 

V#=GRE (0) 
VXx=19 

VY=10 

XV=VX 

LOCATE 6,0 
FOR I=0 TO 24 
LOCATE RX,I 


PRINT R# 
NEXT I 
LOCATE VX, VY 
COLOR 1,0 
PRINT V#: 
RM=3S 

RN=0O 


RETURN 
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CRABES 


Vous devez maintenant aider une pauvre crevette à regagner la mer 
en évitant les crabes voraces qui patrouillent sur la plage. Chaque cre- 
vette amenée au but rapporte un point. Vous disposez de cinq vies 
pour tenter de marquer un score maximum. Utilisez les touches < Z > 
pour avancer et <W > pour reculer. 


10  KREM HKRHRERRKKEES 

20 REM + CRASES + 

SE KREM +4+H44+44K455555 

49 CLEAR ,,3 

50 GSOSUE 940 

60: LOCATE 0:70 

70 COLOR G 

RO PRINT "VIE(S) REST.":NP: 

20 AF=RICHTECAE, LI+LEFTÉ(A$,239) 
100 ES=RIGHTH(BÉ,29)+LEFTS(ES, 1) 
TO LOCATE OX 1 

170 FRINT &#: 

1210 LOCATE O,X? 

140 PRINT Bf: 

150 LOCATE O,X3 

140 FRINT At: 

170 LOCATE 0.X4 


64 CRABES 


180 FRINT Ef: 
190 D$F=INKEYS 

200 FY=PY+(D$="2Z")- (D#="W") 
210 IF PY+10 THEN PY=10 
220 IF FY=2 THEN 350 
730 C=POINT (PXx0+7,PY#8+3) 
240 IF C=0 THEN 550 
250 LOCATE PX,YFP 

280 PRINT N£; 

270 LOCATE FX,PY 

280 COLOR 1 

290 PRINT F#: 

200 COLOR O 

310 YF=PY 

E20 T=T+1 

230 IF T>500 THEN 660 
340 GOTO 40 

350 LOCATE PX.,YF 

260 PRINT Nf; 

370 LOCATE FX,PFY 

380 COLOR 1 

390 PRINT P#: 

400 COLOR © 

410 BEEF 

42G FOR I=1 TO 200 

430 NEXT I 

440 LOCATE FX,PY 

450 FRINT N#: 

480 FY=10 

470 YPF=PY 

480 S=S+1 

490 LOCATE 0,0 

S00 PRINT "SCORE :":G: 
510 LOCATE 19,0 

S20 FRINT "RECORD :"3R3 
S3:0 GOSUR 1110 

540 GOTO 40 

550 NPF=NF-1 

S60 LOCATE PX,YP 

570 PRINT Nf: 

580 LOCATE PX,FY 

590 PRINT CHR (127); 
606 GOSUR 1160 


990 


CRABES 


IF NF=0 THEN 660 

FY=10 

YVF=FY 

GOSUR 1119 

GOTO 60 

CLS 

IF SR THEN R=S 

IF T£500 THEN 710 

LOCATE 10,8 

PRINT “"+x# TEMPS ECOULE *x'": 
LOCATE 10,12 

FRINT "SCORE :":56S: 

LOCATE 10,16 

PRINT "RECORD :'"3:R: 

LOCATE 10,20 

PRINT "UNE AUTRE ?"3 

IF INKEY$#<5"" THEN 770 
DF=INEEYS 

IF D$="" THEN 780 

IF DF£;"N" THEN 50 

CLS 

SCREEN 4,6,6 

END 

CLS 

LOCATE 0,0,0 

SCREEN 0,5,5 

DEFINT Â-Z 
DEFGR#(0)=1,2,4,12,28,56,112,127 
DEFGR#(1)=7,15,31,351,18,16,12,0 


DEFGR+(2)=-224,240,748,248,77,8,48,0 


F$=GRE (0) 
NF=CHRE (32) 
AE CLR L: 

E+&= ne 

S=0 

NF=5 

PXx=19 
PY=10 
YP=PY 


1900 X1=4 


1010 


X2=5 


1020 X3= 
1950 X4=8 
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1040 T=0 
1050 RESTORE 

1060 FOR I=1 TO 40 

1070 READ A 

1080 A$=AF+CHRE (A) 

1090 NEXT I 

1100 EB$=A$ 

1110 X=RND (38) +1 

1120 AF=RIGHTS(AF,X)+LEFTHE(AS,40-X) 

1120 RETURN 

1140 DATA 32,129,130,32,32,129,120,22,22 
.32,129,130,32,32,32,32,57,179,130,327 
1150 DATA 32,22,129,150,32,32,32,129,130 
.32,32,129,130,32,32,179,130,32,32,32,27 
1180 PLAY "T100L8S004L90D003L 1680041 8D0 
LOOMITSL20D0L10MILZ0S0OL10FA#L?20FAL1ORE#L 
2GMIL1O0DO0%LZOLAL10S004L60D0OL10MI" 

1170 FOR I=1 TO 200 

1180 NEXT I 

1190 RETURN 
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Voici un jeu que l’on a l'habitude de voir dans les cafés. Grâce à 
votre ordinateur, vous allez maintenant pouvoir en profiter sans dépen- 
ser un centime. Le but du jeu est simple : essayer de détruire un mur 


de b 


riques à l’aide d'une balle que vous devez renvoyer avec votre 


raquette. Chaque brique cassée rapporte un point. Lorsque le mur est 
entièrement détruit, un nouveau mur apparaît. Vous disposez de dix 
balles pour tenter de marquer un score maximum. Utilisez le joystick 
ou les touches <Q >, <S > et la barre d'espacement pour dépla- 
cer la raquette. 


REM HRKHRÉERIEEMEIIE EX 
REM + CASSE-BRIQULES + 
REM HKEREEEHREREEEKLKKX 
CLERR ,,4 
GOSLFE 7:50 


S0 GCGTO 2060 

F0 D=rk(iSTICE(O)=/i—-ISTICE(O)=E)) 
0 IF D<Er0 THEN DO=D 

90 IF STICE(O)=0 THEN DO=0 
100 RX=KRX+DO 

116 CH=SSN(DO) 

126 RETURN 

126 DE=INFEYS 

140 D=Z2#x((D$=" 0") -(D#="S")) 
JO IF D25:0G THEN DO=D 

180 IF DE=NF THEN DO=0 

1709 RX=RE+D0 


CH=SGN (DO } 


70 CASSE-BRIQUES 


160 RETURN 
200 LOCATE HX,EY 
210 COLOR 1,7 
220 FRINT N#: 
250 HX=EX+DX 
240 BY=EY+DY 
250 IF SCREEN(BX,BY)E25:32 THEN DY=-DY:S=S 
+1: HEEF 
260 LOCATE EX,EY 
270 FRINT Ef: 
280 IF EY=22 AND 8BS(RX-RX-5) :1 THEN 410 
290 IF BY=22 AND RBX5= AND KHX<356 THEN LOC 
ATE EX,EY: PRINT N$3::HX=EX+CH 
ZOQ IF EY=22 THEN BEEPsDY=-DY 
310 IF KY=1 THEN HEEF:DY=-DY 
320 IF EX=2 OR EBX=57 THEN REEF:DX=-DXx 
350 ON JS GOSUB 70,150 
5340 IF RÉ<O THEN KX=0 
590 IF RXSSS THEN RX=SS 
260 LOCATE RX,RY 
3/70 COLOR © 
500 FRINT R#: 
290 IF S=204 THEN GOSUR 12710 
400 GOTO 290 
410 NE=NE+1 | 
420 IF NE=11 THEN 5350 
50 LOCATE EX,EY 
440 PRINT N#: 
450 FOR Izi TO 3 
480 HEEF 
470 FOR J=1i TO 100 
480 NEXT J 
490 NEXT I 
00 DO=0 
310 GOSUR 1150 
20 GOTO 200 
330 LOCATE 13,5 
40 COLOR O 
Jo0 S=6+404%F 
60 PRINT "SCORE :":5S: 
J/0 IF S:R1 THEN KR1i=5S 
590 LOCATE 15,10 
370 PRINT "RECORD :":Ri: 
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600 LOCATE 13,15 
610 PRINT "UNE AUTRE 7": 
620 NE=0 

30 KH=0 

640 S=0 

650 D$=INKEYS 

660 IF D$f<:"" THEN 650 
670 D+t=INÉEYE# 

680 IF D$="" THEN 670 
690 IF D$<>"N" THEN 50 
700 SCREEN 4,6,6 
710 CLS 

720 END 

720 CLS 

740 SCREEN 1,7,7 
750 ATTRE 1,1 

760 DEFINT A-Z 
770 DEFGR# (0) =255 
780 DEFGR#(1)=60, 


790 DEFGR$(2)=8,8, 
800 DEFGR#(3)=0,0, 
810 B1+=GR# (2) 
20 EH2#$=G6R#5 (2) 

20 N$=CHRS (32 
840 R£=NE+NEF+EGRE (0) +GRE (0) +GRE (0) +NS+NE 
850 B+=GR# (1) 

8640 LOCATE 1,10,0 

870 PRINT "JOYSTICÉ (O0 ou N) 7": 
880 D+=INKEY# 

990 IF D+="" THEN 880 

900 IF D+$="0" THEN JS=1 ELSE JS=2 
910 CLS 

920 ATTRE ©,0 

920 COLOR 7,4 

040 FOR EX=1 TO 38 

950 LOCATE BX,0 

980 PRINT Nf: 

970 NEXT EX 

980 FOR EY=1 TO 22 

990 LOCATE 1,BY 

1000 PRINT N#:; 

1010 LOCATE 28,BY 
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1020 
10:50 
1040 
1050 
10840 
1070 
1080 
1090 
1100 
1110 
1120 
11:50 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1270 

2350 
1240 
1250 
1280 
1270 


1:90 


CASSE-BRIQUES 


PRINT NN: 
NEXT EY 

FOR EY=? TO 7 
COLOR O,BY-1 
FOR BX=3 TO 

LOCATE EX,BY 


55 STEF 2 


IF BY/Z2£S%INT(BY/2) THEN 1110 


PRINT B1#:R2#; 
GOTO 1120 

PRINT B?#;R1#: 

NEXT EX 

NEXT BY 

RX=1é6 

RY=2= 

EY=22 

EX=INT (RND*34) +3 
DY=—1 

DX= (INT (RND#2) -0.5) #7 
RETURN 

K=K+1 

5=0 

LOCATE EX,EY 

PRINT N#: 

LOCATE RX+2,RY 

PRINT NE:NS: NE: 

GOSUR 920 

RETURN 


à 
NN] 


OURSUITE 


Le voleur s’est échappé, emportant le magot. (Il est représenté par 
un masque noir.) || se cache dans la ville et vous avez trente minutes 
pour le débusquer et l'arrêter. Attention, pas de précipitation ! En effet, 
si vous vous jetez sur lui sans réfléchir, il y a toutes les chances pour 
qu'il vous file entre les doigts. La meilleure façon de vous y prendre 
est de l’aborder de côté. (Efficace à tous les coups à condition de ne 
pas le rater !) Si vous ne vous sentez pas assez sûr de vous, attaquez- 
le de face, ce qui est plus facile mais moins efficace car moins discret. 
Encore un conseil : n’essayez pas de le poursuivre ; cela ne vous mène- 
rait à rien car il est aussi rapide que vous. Observez plutôt ses mouve- 
ments comme un vrai détective. Quand vous le verrez tourner en rond, 
approchez-vous sans faire de bruit et surgissez au bon moment. Mais 
rappelez-vous, le temps presse ! 

Pour vous déplacer, utilisez le joystick ou les touches suivantes : 


<Z> : haut 
<Q> : gauche 
<S> : droite 
<W > : bas 


10 KEM #RHS5EREKELENRSE 
20 REM + POURSUITE + 
350 REM KK#K#KEKEKHENRLHKE 
40 CLEA ,,2 

50 GOSUE 1320 

80 5S=0 

70 NE=CHRE (32) 


76 


POURSUITE 


RQ VÆF=CGRE (1) 
0 FÆ=GRE (0) 


100 
110 
120 
1:50 
140 


GOSUB 920 
ON JE GOTO 180 
D+=INKEY# 


DH= (D$="0")—(D#F="G") 
DV= (DE="Z7")—(D#F="W") 
IF DH£>0 THEN DX=DH: DY=0 


IF DY<50 THEN 
GOTO 210 
ST=STICE (0) 
DX=(ST=/)—-(ST- 


DY=DV:DX=0 


3) 


DY=(ST=1)-(S7T=5) 


Z=1-0.2 
LOCATE 0,24 
COLOR © 

FRINT “TEMPS : 


"s INT (Z+1): 


IF Z<06 THEN 500 


FX=FX+DX 
PY=FY+DY 
C=POINT (FX#89+4 


.FY#8+4) 


IF C=0 THEN 1270 
IF C£>-7 THEN FX=XP:PY=YP 


LOCATE XP,YP 
PRINT NN: 
LOCATE PX,PY 
COLOR 1 
PRINT P#;: 
YP=FY 

XP=PX 
VX=VX+CX 
VY=VY+CY 


IF SCREEN(VX,VY)<2>32 THEN GOSUB 460 
IF SCREEN(VX,VY)€2:32 THEN 380 


LOCATE XV, YV 
COLOR 0 
FRINT N#;s 
LOCATE VX, VY 
PRINT V£: 
XV=VX 

YV=UY 

GOTO 110 

IF INKEYS<>U" 


THEN 500 
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S10 IF R<S THEN FR=S 
520 COLOR © 

530 LOCATE 10,6 

S40 FRINT "TEMPS ECOULE":; 
550 LOCATE 10,10 

560 PRINT "SCORE :"3:G: 
570 LOCATE 10,14 

580 FRINT "RECORD :"3R: 
590 LOCATE 10,18 

600 PRINT "UNE AUTRE 7"; 
610 D+=INKEY# 


6820 IF D$="" THEN 610 
630 IF D#<:"N" THEN RUN 
640 CLS 

6:50 END 


660 DT=DT+1I 

670 GOSUKR 770 

680 IF SCREEN(XV+CX,YV+CY)=352 THEN VX=XV 
+CX: VY=YV+CY: RETURN 

890 DT=DT-2 

700 GOSUB 770 

710 IF SCREEN(XV+CX,YV+CY)=52 THEN VX=XV 
+CX: VY=YV+CY: RETURN 

720 DT=DT-1 

7530 GOSUR 776 

740 VX=XV+CX 

7530 VY=YV4+CY 

760 RETURN 

77Q IF DT:4 THEN DT=DT-4 
780 IF DT<1 THEN DT=DT+4 
7970 CX=(DT=1)-(DT=3 

800 CY=(DT=2)-(DT=4) 

810 RETURN 

820 CLS 

930 COLOR 5 

940 FOR VX=0 TO 59 

950 LOCATE VX,0 

8606 PFRINT CHR#(127): 

9/0 LOCATE VX,25 

880 FRINT CHR#(127)3 

4970 NEXT VX 

700 FOR VY=1 TO 22 

919 LOCATE O,VY 
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920 
9:30 
940 
1% 
9460 
970 
980 
990 
1000 
1010 
1020 
10350 
1040 
1050 
1060 
1670 
1080 
1090 
1106 
1110 
1120 
11:50 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1:60 
1270 
1280 
1290 
1:00 
ne 
1 += ae 
1540 


POURSUITE 


PRINT CHR#(127) : 
LOCATE 39,VY 
PRINT CHR#(127): 
NEXT VY 

COLOR 4 

FOR VX=1 TO 150 
GOSUR 1230 
LOCATE PX,PY 


FRINT CHR$(127) : 
NEXT VX 

GOSUR 1230 
VX=PX 

VY=PY 

COLOR 0 

LOCATE VX, VY 
PRINT V#: 

XV=UX 
YU=UY 
GOSUR 
COLOR 

LOCATE 
PRINT P# 
XPF=PX 
YP=PY 
=10 
CX=0 
CY=0 
DX=0 
DY=0 
DT=0 
RETURN 
FX=INT (RND#29) +1 

FY=INT (RND#22) +1 

IF SCREEN(PX,PY)€>22 THEN 123 

RETURN 

FOR I=i T05 

PLAY "T1SREDO" 

NEXT I 

SG=5+1 

GOTO 100 

SCREEN 4,6,6 

CLS 

DEFINT A-Y 


WT 
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1350 


1:80 


DEFGR$ (0) =28 
LEFGR$(1)=0, 


LB, 

1370 
1:a0 
1:90 
1400 
1410 
1420 
1450 
1440 
14350 


ATTRE 1,1 
LOCATE 10,10,0 
FRINT "JOYSTICK 7"; 
DF=INFEYS 
FX=RND 

IF D+$= us st 
IF D+="0" 
ATTRE 0,0 
RETURN 


THEN 1400 
THEN JK=1 


ROBOTS 


Vous voici seul, abandonné sur une planète défendue par des robots 
meurtriers. Le sol est truffé de mines qu'il vous faut absolument évi- 
ter. Les mines sont représentées sur l'écran par des losanges rouges. 
Au début du jeu, cinq robots sont présents sur le terrain. Sans perdre 
une seconde, ils se précipitent sur vous en suivant toujours le plus court 
chemin. Par chance, les robots sont aveugles et ne voient pas les mines 
qui se trouvent entre eux et vous, ce qui vous permet, en vous dépla- 
çant judicieusement, de les éliminer. Utilisez pour cela le joystick ou 
les touches : 


<A> <Z> <E> 
<Q> <D> 
<W> <X2> <C> 


suivant la direction que vous avez choisie. Lorsque tous les robots sont 
éliminés, le jeu reprend avec un robot supplémentaire. Si vous sautez 
sur une mine ou si un robot vous tue, tout n’est pas perdu. Vous dis- 
posez en effet de cinq vies. Si vous désirez changer le nombre de mines, 
modifiez la valeur de la variable NM à la ligne 80. 


10 KREM +KkRhKRHKNKEIEX 
20 REM + ROBOTS « 
KL REF +LRKRRKENHNHEIX 
40 DEFINT A-Z 

SO CLEAR ,,= 

60 NH=S 

70 Ni=5 
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ROBOTS 


80 NM=40 
970 NR=NI 


290 
500 
310 


DIM R{&O,1) 
GOSUB 1580 

GOSUB 1470 

GOSUE 910 

ON JS GOSUB 710,810 
C=POINT (HX*x8+4,HY*x0+4) 

IF Cé-7 AND C£:4 THEN 470 
COLOR 4 

LOCATE X,Y 

PRINT Nf: 

LOCATE HX,HY 

PRINT H#: 

X=HX 

Y=HY 

T=0 

FOR I=1 TO NR 

IF R(I,0)=0 THEN 400 

T=i 
RX=R(1,0)+SGN(HX-R(I,G)) 
RY=R(I,1)+SGNCHY-R(I,1)) 
C=FOINT (RX*8+4,RY#+0+4) 

IF C=1i OR C-0 THEN S=S+1:LOCATE RUI, 


OÙ) ,R(I,1L)=: PRINT Nf::R(I1,0)=0:GOTO 400 


320 
3350 
340 
35 

360 
370 
380 
390 
400 
410 
420 
450 
440 
450 
460 
470 
480 
490 


IF C=4 THEN 470 
COLOR © 

LOCATE R(I,0),R(I,1) 
PRINT N#;s 

LOCATE RX,RY 

PRINT R#; 

R(I,0)=RX 

R(I,1)=RY 

NEXT I 

IF T-0 THEN 430 

GOTO 140 : 

S=5+10 

IF INKEY#<>"" THEN 440 
IF NR£3O THEN NR=NR+1 
GOTO 130 

NH=NH-1 

COLOR 7 

LOCATE X,Y 


ROBOTS 83 


500 FRINT N#; 
510 LOCATE HX,HY 

S20 PRINT Hé; 

530 PLAY "LO6REL7ZRELZA4REL98REL72FALZ4MI 
L72MIL?4REL7?2REL?24D0#L98RE" 

540 IF INKEY#<>"" THEN 540 

SS0 IF NH>0 THEN NR=N1:GOTO 130 

S60 CLS 

570 SCREEN 1,6,6 

S80 ATTRE 1,1 

590 LOCATE 9,10 

600 PRINT "SCORE :":G; 

610 LOCATE 9,20 


620 PRINT "UNE AUTRE 7"; 

6350 COLOR 4 

640 ATTRE 0,0 

6350 IF INKEY#<Z"" THEN 8650 

660 DF=INKEYS 

670 IF DF="" THEN 660 

680 IF DE<Z"N" THEN RUN 

690 CLS 

700 END 

710 D$F=INKEYS# 

720 IF D$="A" THEN HX=HX-1:HY=HY-1 
730 IF D$="Z2Z" THEN HY=HY-1 

740 IF D$="E" THEN HY=HY-i:HX=HX+1 
730 IF D$="0Q" THEN HX=HX-1 

760 IF D5="D" THEN HX=HX+1 

770 IF DF="W" THEN HX=HX-1s:HY=HY+1 
780 IF DF="X" THEN HY=HY+1 

790 IF D$="C" THEN HY=HY+1:HX=HX+1 
800 RETURN 

810 J=STICK(O) 

820 IF J=1 THEN HY=HY-I1 

850 IF J=Z2 THEN HY=HY-1:HX=HX+1 
840 IF J=S THEN HX=HX+1 

850 IF J=4 THEN HX=HX+1:HY=HY+1 
860 IF J=S THEN HY=HY+1 

870 IF J=6 THEN HY=HY+1:HX=HX-1 
880 IF J=/7 THEN HX=HX-1 

890 IF J=8 THEN HX=HX-1:HY=HY-1 
900 RETURN 

910 CLS 
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COLOR 4 
LOCATE 0,24 

FRINT "SCORE :":5S; 
IF NH=1 THEN 1000 
FOR HX=1 TO NH-i 
LOCATE 19+HX,74 
PRINT H#: 

NEXT HX 


COLOR 1 
FOR HX=0 TO 
LOCATE HX,0 
PRINT M#: 
LOCATE HX,23 
PRINT M$: 
NEXT HX 

FOR HY=1 TO 2? 
LOCATE O,HY 

PRINT M#: 

LOCATE 39,HY 
PRINT M: 

NEXT HY 

FOR 1=1 TO NM 
HX=INT (RND#38) +1 
HY=INT (RND#22) +1 
IF SCREEN(CHX,HY)< > 
LOCATE HX,HY 
PRINT M: 

NEXT I 

COLOR 0 

FOR I=i TO NR 
R(I,0)=INT (RND+#28) +1 
R(I,1)=INT (RND#22) +1 
IF SCREEN(R(I,0),RCI 


39 


TA 
DC 


LOCATE R{I,0) 
PRINT R#; 
NEXT I 

HX=INT (RND*39) +1 
HY=INT (RND#22) +1 
IF SCREEN(CHX,HY)4 
X=HX 

Y=HY 

FOR I=i TO 


RtI,1) 


D 


THEN 1140 


51))24:32 7 


+32 THEN 1280 


1:40 
15:50 
1560 
1370 
1580 
13590 
1400 
1410 
1420 
14:50 
1440 
1420 
1440 
1470 
1480 
1490 
15:00 
15310 

20 
1550 
1540 


1550 


ROBOTS 


LOCATE HX,HY 
COLOR 5 

PRINT CHR#(127); 
REEF 

FOR J=i TO 50 
NEXT J 

LOCATE HX,HY 
COLCR 4 

PRINT Hf: 

FOR J=i TO 50 
NEXT J 

NEXT I 

RETURN 

CLS 

SCREEN 4,2,0 
ATTRE 1,1 

LOCATE 10,10,0 
FRINT "JOYSTICE 
ATTRE 0,0 
D$=INHEYS# 
C=RND 

IF Dé="" 
IF D+$="0" 
RETURN 
DEFGR+(0)=26,28,73,62,8,28,2 
DEFGR$(1)=60,176,219,255,2755 


ELLE 
5 


THEN 1339 
THEN JS=2 ELSE JS=1i 


Q 
3 


DEFGR#(2)=-0,0,74,60,176,176,60,74 


HF=GRE (0) 
RF=GRE (1) 
MY=GRE (2) 
NE=CHRE (32) 
RETURN 


,20 
126,26 
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ARACHUTE 


Essayez, en sautant d'un hélicoptère en vol, d'atteindre la cible qui 
se trouve au sol. Une première pression sur une touche vous permet 
de descendre verticalement en chute libre. Une deuxième pression 
entraîne l'ouverture du parachute. La descente continue alors plus len- 
tement et avec un angle de 45 degrés car le vent vous pousse. Plus 
vous attendrez pour ouvrir votre parachute et moins vous serez déporté. 
Mais n'attendez pas trop longtemps car, au-dessous de cent mètres, 
le parachute ne s'ouvre plus. 


10 KEM HRKKHENHENELÉHX 

20 REM * PARACHUTE * 

SO KEM HRK HELELÉHIXX 

40 GOSUER 470 

SO HH=HH-2 

60 IF HH=0 THEN FUT (0,1)-(25,9) ,R 
70 IF HH=O THEN HH=290 

80 FUT (HH,1)—(CHH+25,9) ,H 

90 D$=INKEYS 

100 IF D$="" THEN 140 

110 IF PV>100 THEN 140 

120 IF SP=1 THEN OF=1 ELSE SF=i1 
130 IF OP=0 THEN FV=10:FH=HH 

140 IF SP=0 THEN 2530 

150 IF OF-0 THEN PV=FV+4 

160 IF OP=1 THEN FV=PV+1:PH=FH-1 
170 IF FV>167 OR FH<i THEN 2760 
180 IF OF-1 THEN 210 

190 PUT (FH,PV)—(PH+14,PV+22) ,FF 
200 GOTO 50 


88 PARACHUTE 


210 PUT {PH,PV)—(PH+14,PV+22) ,FP0 
270 GOTO 50 

230 FOR I=i TO 50 

240 NEXT I 

250 GOTO 50 

2680 IF ABS(FH-A)>4 THEN 220 
270 FOR I=i TO 1000 

280 NEXT I 

290 S=5+10 

300 GOSUR 470 

310 GOTO 50 

320 CLS 

230 SCREEN 1,2,2 

340 LOCATE 10,10 

350 ATTRE 1,1 

260 PRINT "SCORE :":5S; 

370 LOCATE 10,16 

280 FRINT "UNE AUTRE 7": 
390 ATTRE 0,0 

400 IF INKEY#<>"" THEN 400 
410 D$=INÉEYS 


42Q IF D$="" THEN 410 
30 IF D$£>"N" THEN RUN 

440 CLS 

450 SCREEN 4,6,6 

460 END 


470 LOCATE 0,0,0 
480 SCREEN 4,6,6 

490 DEFINT A-Z 

500 DIM H(25,8) 

510 DIM PF(14,23) 

520 DIM P0O(14,73) 

530 DIM R(?5,8) 

540 CLS 

550 DRAW "C4BMS1,50R14L6G4L2G1LIGI1DIFIRZ 
1E1USL?D1G?LSHIL1H1LIHIL1" 

S60 FAINT (58,56) ,4 

570 GET (50,50)-(75,58) ,H 

580 GET (100,50)-(125,58) ,R 

590 CLS 

600 DRAW "C1BM54,50G1L1G1D1GI1DIRIZU1HIU 
HiL1H1L4" 

610 FAINT (56,54) ,1 


PARACHUTE 89 


620 DRAW "CiBM51,56D1F1D1F1D2R?2D6LIRIUSR 
2DSR1LIUA4LIU4LIULR2DIL1DA4RIUPRPUSEIUIEIU 
Rd 

30 GET (50,46)-(64,89) ,F0 
640 CLS 
650 DRAW "C1BMS54,61R1D6LZD?UPRED2LIDIRZU 
1LIUPRED?UPLEUSDERIU6R1" 
6hO GET (50,46)-(64,69),FF 
670 CLS 
680 HH=290 
690 HV=1 
700 A=INT (RND#191)+10 
710 DRAW "COBM"4+STR#(A)+",191R12" 
720 SP=0 

30 OP-=0 
740 PV=0 

750 PH=0 

760 RETURN 
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